home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASCSRC.ZIP / READSTRG.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  310b  |  13 lines
  1.                                 (* Chapter 10 - Program 6 *)
  2. program Read_A_String;
  3.  
  4. var Index : byte;
  5.     Field : string[10];
  6.  
  7. begin
  8.    for Index := 1 to 5 do begin
  9.       Write('Enter up to 10 characters ');
  10.       Readln(Field);
  11.       Writeln('The data you entered was (',Field,')');
  12.    end;
  13. end.